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BESCHREIBUNG : 

Die vorliegende Erfindung betrifft ein Verfahren nach'dem Oberbegriff von Patentan- 

20 spruch 1 sowie einen Protokolltester nach dem Oberbegriff von Patentanspruch 12. Ein 
derartiges Verfahren beziehungsweise ein derartiger Protokolltester sind bekannt aus 
der EP 1 128 600 A1, deren Offenbarungsgehalt durch diese Bezugnahme in die vor- 
liegende Anmeldung mit aufgenommen wird. Dieses Dokument erlautert am Beispiel 
der standardisierten Sprache MSC (Message Sequence Charts), die dazu dient, einen 

25 Kommunikationsablauf zwischen zwei Instanzen graphisch darzustellen, die Umset- 
zung der graphischen Darstellung in eine ausftihrbare Version eines Kommunikations- 
ablaufs. Details zu MSC konnen der ITU-T Z.120 entnommen werden, die durch diese 
Bezugnahme in den Offenbarungsgehalt der vorliegenden Anmeldung aufgenommen 
wird. Damit lassen sich Kommunikationsablaufe selbst von nicht programmierkundigen 

30 Benutzern auf einfache Weise kreieren. Damit stellt die in der EP 1 128 600 A1 be- 
schriebene Erfindung einen groBen Fortschritt dar. Trotzdem verbleiben Probleme, die 
die Erstellung eines Kommunikationsablaufs mit MSC umstandlich machen, die Les- 
barkeit des erzeugten Codes erschweren und mit einem hohen Speicherbedarf einher- 
gehen. Mit Bezug auf die Figuren 1 bis 3 sollen nachfolgend Beispiele gezeigt werden, 

35 die dies veranschaulichen: 

Figur 1 zeigt am Beispiel einer Repetition den Kommunikationsablauf zwischen der In- 
stanz TC (Test Component) und der Instanz IUT ( Item Unter Test). Die Instanz TC wird 
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von einem Protokolltester gebildet, wahrend die Instanz IUT das zu testende Gerat dar- 
^ stellt. Die Aufgabe besteht darin, dass die Instanz TC darauf wartet, daB ein Verbin- 
dungsaufbau durch die Instanz IUT komplettiert wurde. Zunachst wartet also die In- 
stanz auf den Empfang eines Wahltons und sendet nach Erhalt eines Wahltons eine 
5 Anfrage, ob der Verbindungsaufbau komplettiert wurde. Falls IUT anwortet, daB der 
Aufbau vollstandig ist, ist die Aufgabe beendet. Falls jedoch IUT sendet, daB der Ver- 
bindungsaufbau noch nicht vollstandig ist, wartet TC weiterhin auf den Empfang eines 
Wahltons. Nach Empfang desselben, stellt TC wiederum die Frage, ob der Aufbau be- 
reits vollstandig ist. Erhalt TC eine positive Antwort, ist die Aufgabe erledigt, falls nicht, 

10 wiederholt sich die Abfolge von Warten und Vollstandigkeitsanfrage und zwar solange, 
bis der Programmierer irgendwann zu der Ansicht kommt, daB alle relevanten Falle 
abgedeckt sein muBten. Wie man sieht, kein einfaches Anliegen, so daB sich die "Alt"- 
Boxen in Fig. 1 noch mehrfach nach unten fortsetzen konnen. Dies ist auBerst um- 
standlich und zeitraubend und erschwert die Lesbarkeit ejnes langeren Kommunikati- 

1 5 onsablaufs, in dem diese Aufgabe eingefiigt ist. 

Figur 2 zeigt einen Kommunikationsablauf, der nach dem aus dem Stand der Technik 
bekannten Verfahren eingegeben wurde, wonach die Instanz TC bei Empfang des Er- 
eignisses 2 das Ereignis 8 zu senden hat. Geht man davon aus, daB diese Kommuni- 
20 kationssequenz in einer Vielzahl von Kommunikationsablaufen enthalten ist und sich in 
der Protokollentwicklung die Anderung ergibt, dass bei Empfang des Ereignisses 2 das 
Ereignis 8 und das Ereignis 9 zu senden sind, so muss jedes einzelne Chart im Hinblick 
auf diese Anderung geandert werden. Ohne Zweifel stellt dies eine Fehlerquelle dar, 
falls die Anderung einzelner Charts vergessen wird. AuBerdem kostet dies viel Zeit. 

25 

Figur 3 zeigt eine Sequenz eines Kommunikationsablaufs, die ebenfalls mit dem aus 
dem Stand der Technik bekannten Verfahren kreiert wurde. Die Aufgabe besteht darin, 
dass die Instanz TC bei Empfang des Ereignisses 555 das Ereignis X zu senden hat. 
Bei Empfang aller anderen Ereignisse zwischen 1 und 10.000 soil die Instanz TC nichts 
30 senden. Mit diesem Beispiel konnte realisiert werden, dass nur bei Empfang einer be- 
stimmten Telefonnummer eine bestimmte Nachricht gesendet wird. Es ist offensichtlich, 
dass der Programmieraufwand fur diese Aufgabe immens ist und der derzeitige Zu- 
stand daher unbefriedigend. 
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Die Alternative zur Vermeidung derartig umstandlicher Konstrukte, wie sie in den Figu- 
ren 1 und 2 dargestellt sind, besteht darin, Boxen mit Programmiercode in die Charts 
einzufugen. Damit geht jedoch der Nachteil einher, der mit der in der EP 1 128 600 A1 
dargestellten Erfindung vermieden werden sollte, namlich dass der Benutzer zur Defini- 
5 tion eines Kommunikationsablaufs uber Programmierkenntnisse verfiigen muss. Bei 
dem bekannten Protokolltester mussten sogenannte Forth-Boxen, das heiBt Boxen mit 
Programmcode in der Programmiersprache Forth, eingefugt werden, in die der Code 
hineinprogrammiert werden musste. 

10 Der vorliegenden Erfindung liegt deshalb die Aufgabe zugrunde, ein gattungsgemaBes 
Verfahren beziehungsweise einen gattungsgemaBen Protokolltester derart weiterzubil- 
den, dass Kommunikationsablaufe mit geringerem Programmieraufwand, hoherer 
Ubersichtlichkeit, schnellerer Ausfuhrbarkeit und geringerem Speicherbedarf erstellt 
werden konnen. 

15 

Diese Aufgabe wird gelost durch ein Verfahren mit den Merkmalen von Patentanspruch 
1 sowie durch einen Protokolltester mit den Merkmalen von Patentanspruch 12. 

Auch wenn die vorliegende Erfindung am Beispiel der Testbeschreibungssprache MSC 
20 dargestellt wird, so ist sie selbstverstandlich auf andere Beschreibungssprachen Ciber- 
tragbar. 

Der Erfindung liegt die Erkenntnis zugrunde, dass sich die obige Aufgabe dadurch Id- 
sen lasst, dass Aktionen einer der beiden Instanzen des Kommunikationsablaufs nicht 
25 vom Eintreffen von Ereignissen abhangig gemacht werden, sondern vom Eintreffen 
bestimmter Inhalte von Variablen. 

Wahrend im Stand der Technik Verzweigungen uber Ereignisse definiert werden muss- 
ten, lasst sich mit dem erfindungsgemaBen Verfahren eine Verzweigung in Abhangig- 
30 keit des Inhalts einer bestimmten Variablen realisieren. 

Auf der Basis des erfindungsgemaBen Verfahrens kann beispielsweise ein Benutzer 
eine Switch-Case-Funktionalitat spezifizieren, die die zweite Instanz in Abhangigkeit 
des Inhalts der Variablen ausfuhrt. Auch die Realisierung einer Loop-Funktionalitat in 
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Abhangigkeit des Inhalts der Variablen ist moglich. Die Loop-Funktionalitat kann eine 
For-Next-, eine Do-While- und/oder eine While-Do-Funktionalitat umfassen. Auch die 
Spezifizierung von Jump- beziehungsweise GoTo-Funktionalitaten und/oder eine If- 
Then-Funktionalitat in Abhangigkeit des Inhalts einer Variablen ist moglich. 

Bevorzugt werden in Schritt a) des gattungsgemaGen Verfahrens die an der Kommuni- 
kation beteiligten Instanzen graphisch ausgewahlt und/oder in Schritt b) die Protokoll- 
schicht graphisch ausgewahlt und/oder in Schritt c) die abstrakten Kommunikations- 
schnittstellen der Protokollschicht graphisch ausgewahlt, wobei den dabei auswahlba- 
ren Parametern Beschreibungsdateien zugeordnet sind, die in Schritt e) des gattungs- 
gemaGen Verfahrens zur Erstellung eines zwischen den Instanzen ausfuhrbaren Kom- 
munikationsablaufs, das heiGt eines ablauffahigen Skripts, verwendet werden. 

Bevorzugt umfassen die abstrakten Kommunikationsschnittstellen SAPs (Service Ac- 
15 cess Points). Die Kommunikationsdaten umfassen bevorzugt PDUs (Protocol Data 
Units) und/oder ASPs (Abstract Service Primitives). Schritt d) des gattungsgemaGen 
Verfahrens umfasst bevorzugt die Teilschritte des graphischen Auswahlens eines Da- 
tenformats sowie den graphischen Aufbau einer Kommunikationsabfolge zwischen den 
beteiligten Instanzen. In dem zuletzt genannten Teilschritt kann vorgesehen sein, dass 
20 Source-Code eingegeben werden kann. Bevorzugt sind alien auswahlbaren Parame- 
tern Beschreibungsdateien zugeordnet, die in Schritt e) des gattungsgemaGen Verfah- 
rens zur Erstellung eines zwischen den Instanzen ausfuhrbaren Kommunikationsab- 
laufs verwendet werden. 

25 Die im Zusammenhang mit dem erfindungsgemaGen Verfahren erwahnten bevorzugten 
Ausfiihrungsformen sind zusammen mit ihren Vorteilen, wie fur den Fachmann offen- 
sichtlich, auch bei einem erfindungsgemaGen Protokolltester realisierbar. 

Weitere vorteilhafte Ausfuhrungsformen ergeben sich aus den Unteranspruchen. 

30 

Im Nachfolgenden wird die Erfindung unter Bezugnahme auf die beigefugten Zeich- 
nungen naher beschrieben. Es zeigen: 
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Figur 1 ein mit dem aus dem Stand der Technik bekannten Verfahren kreierter 
Kommunikationsablauf fur eine Repetition; 

Figur 2 ein mit dem aus dem Stand der Technik bekannten Verfahren kreierter 
Kommunikationsablauf, bei dem bei Eintreffen des Ereignisses 2 das Ereig- 
nis 8 gesendet wird; 

Figur 3 ein mit dem aus dem Stand der Technik bekannten Verfahren kreierter 
Kommunikationsablauf, bei dem bei Eintreffen des Ereignisses 555 das Er- 
eignis X gesendet wird; 

Figur 4 ein mit dem erfindungsgemaBen Verfahren kreierter Kommunikationsablauf, 
der im Ergebnis dem Kommunikationsablauf von Figur 1 entspricht; 

Figur 5 ein mit dem erfindungsgemaBen Verfahren kreierter Kommunikationsablauf, 
der im Ergebnis die Kommunikationsablaufe der Figuren 2 und 3 zusam- 
menfaBt; 

Figur 6 einen beispielhaften Kommunikationsablauf, der mit dem erfindungsgema- 
Ben Verfahren kreiert wurde und der verschiedene Switch-Funktionalitaten 
darstellt; und 

Figur 7 ein mit dem erfindungsgemaBen Verfahren kreierter Kommunikationsablauf 
zur Darstellung verschiedener Loop-Funktionalitaten. 

Im Anhang A1 ist ein von dem erfindungsgemaBen Verfahren kreiertes ablauffahiges 
Skript fur die in Figur 6 dargestellte Switch-Funktion angegeben, wahrend in Anhang A2 
das von dem erfindungsgemaBen Verfahren kreierte ablauffahige Skript dargestellt ist, 
das mit dem in Figur 7 dargestellten Kommunikationsablauf korrespondiert. 

Figur 4 zeigt eine Do-While-Schleife, die dieselbe Aufgabe lost wie der in Figur 1 dar- 
gestellte Kommunikationsablauf, nur kurzer und wesentlich ubersichtlicher. Bei dem in 
Figur 4 dargestellten Kommunikationsablauf wird der Wert der Variablen „Connected" 
uberpruft. Solange ..Connected" ungleich 0 ist, wird auf den nachsten Wahlton gewartet 



Version: 15.11.02 10:15 



6 

und anschlieBend angefragt, ob der Verbindungsaufbau komplett ist. Sofern diese Fra- 
ge mit "Ja" zu beantworten ist, wird die Variable „Connected" gleich 0 gesetzt und die 
Aufgabe ist beendet Falls dies nicht der Fall ist, wird die Variable „Connected" nicht 
verandert, so dass die Do-While-Schleife weiterhin durchlaufen wird. 

5 

Figur 5 stellt vor, wie die in Zusammenhang mit Figur 2 und Figur 3 beschriebenen Auf- 
gabe erfindungsgemaB gelost werden. Die Instanz TC empfangt nach Senden eines 
Requests eine Nachricht mit einer Variablen, die einen Wert von 1 bis 1000 haben 
kann. Bei Empfang einer Nachricht, bei der die Variable MsgNumber den Wert 2 hat, 

10 wird eine Nachricht mit der Variablen B gesendet, wahrend bei Empfang einer Nach- 
richt, bei der die MsgNumber den Wert 555 hat, eine Nachricht mit der Variablen X ge- 
sendet wird. In alien anderen Fallen ("else") wird lediglich weitergewartet ("T"). Anstelle 
einer Anderung aller betroffener Charts wird lediglich der Variablen B ein anderer Wert 
zugewiesen, so da3 kunftig anstelle des Ereignisses 8*die Ereignisse 8 und 9 gesendet 

15 werden. Diese Zuweisung eines anderen Werts an die Variable B genugt einmalig au- 
Berhalb der Charts. Alle Charts konnen daher unverandert bleiben. Ein weiterer Vorteil 
besteht darin, daB im Stand der Technik, vgl. die Figuren 2 und 3, so viele Nachrichten 
erzeugen musste, wie benotigt werden, um die Messaufgabe zu losen, vorliegend also 
1000; Bei der erfindungsgemaBen Losung genugt fur die vorliegende Messaufgabe die 
20 Erzeugung einer einzigen Nachricht. 

Figur 6 zeigt ein Beispiel fur eine mit dem erfindungsgemaBen Verfahren realisierte 
Switch-Case-Funktionalitat In Abhangigkeit der Switch-Variablen werden vom Proto- 
kolltester, das heiBt der Instanz TC, verschiedene Aktionen vorgenommen. Ist die 

25 Switch-Variable gleich 1, so wird die Meldung „Passed" ausgegeben. Ist die Switch- 
Variable 2, so wird die Meldung Jnconclusive", das heiBt "nicht stimmig" ausgegeben. 
Ist die Switch-Variable gleich 3, so wird die Meldung ^Failed" ausgegeben. 1st die 
Switch-Variable 4, so wird ein „Disconnecf gesendet und ein „Confirm" zuriickerwartet. 
Ist die Switch-Variable 5, soli der Benutzer die Taste F1 driicken, um damit den Test zu 

30- beenden. Fur alle anderen Werte der Switch-Variablen wird ein „Trace Text" angezeigt, 
anschlieBend wird ein Verdict, d.h. die Beurteilung des Testfalls, gesetzt und der Test 
angehalten. Der zugehorige, vom Verfahren erzeugt Code befindet sich im Anhang A1 . 
Der Switch selbst wird durch die States 2 bis 10 abgehandelt, der State 1 1 ist der Ein- 
sprungspunkt und der State 1 2 der Endpunkt. 
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Figur 7 zeigt verschiedene Beispiele von Loops, wobei die Box 100 dazu dient, 12 Ver- 
bindungen zu erzeugen, entsprechend der Vorgabe „For j = 1 to 12". Die Box 110 ist 
eine Loop-Schleife mit einer Uberprufung am Ende. Die Variable ..Connections" wird 
5 pro Durchlauf urn 1 verringert und die Schleife wird sooft durchlaufen, solange die Va- 
riable ..Connections" ungleich 0 ist. Bei jedem Durchlauf wartet die Instanz TC auf die 
Bestatigung eines Anrufs und wenn sie den Anruf erhalten hat, wird eine Anrufbestati- 
gung gesendet. 

10 Die Box 1 20 zeigt eine Loop-Funktionalitat, bei der die Uberprufung am Anfang stattfin- 
det. Solange die Variable j ungleich 0 ist, wird zunachst ein Timeout von 10 Sekunden 
abgewartet, anschlieBend die Variable j urn 1 vermindert. Fur den Fall, dass wahrend 
des Timeouts eine Verbindung beendet wird, wird ein weiterer Timeout gesetzt und an- 
schlieBend die Variable j gleich 0 gesetzt. Diese Funktion dient dazu, abzuwarten bis 

15 alle Verbindungen freigegeben worden sind. Im Anhang A2 ist der im erfindungsgema- 
Ben Verfahren erzeugte Code abgedruckt. Ein derartiger Code kann in einer Forth-Box 
nicht programmiert werden, da in einer Forth-Box Statustransitionen, wie zum Beispiel 
auf Seite 12 Zeile 1 Oder Seite 12 Zeile 16 des Anhangs nicht moglich sind. Denn bei 
jedem Kompilat kann sich an den Statusnummern etwas andern, zum Beispiel durch 

20 einen Einschub, der einen neuen Status erfordert, so daB sich die Statusnummern ver- 
schieben. Dies hat zur Folge, daB nachfolgende Forth-Boxen nicht mehr funktionieren. 
In einer Forth-Box kann damehr nur ein kompilatunabhangiger statischer Code einge- 
geben werden. 
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ANSPRUCHE : 

1. Verfahren zum Erstellen eines Ablaufs einer zwischen mindestens zwei Instan- 
20 zen ablaufenden Kommunikation, wobei eine Instanz ein Protokolltester ist, ge- 

kennzeichnet durch folgende am Protokolltester ausfuhrbare Schritte: 

a) Auswahlen der an der Kommunikation beteiligten Instanzen; 

b) Auswahlen einer Protokollschicht, auf deren Grundlage die Kommuni- 
kation zwischen den ausgewahlten Instanzen ablaufen soli; 

25 c) Auswahlen derjenigen abstrakten Kommunikationsschnittstellen der Pro- 

tokollschicht, die an der Kommunikation beteiligt sind; 

d) Auswahlen der Kommunikationsdaten; 

e) Erstellen eines zwischen den mindestens zwei Instanzen ausfuhrbaren 
Kommunikationsablaufs durch den Protokolltester auf der Grundlage der 

30 Auswahlen in den Schritten a) bis d), 

wobei die Auswahl von Schritt d) graphisch erfolgt und den dabei auswahlbaren 
Parametern Beschreibungsdateien zugeordnet sind, die in Schritt e) zur Erstel- 
lung eines zwischen den Instanzen ausfuhrbaren Kommunikationsablaufs ver- 
wendet werden, wobei Schritt d) den graphischen Aufbau einer Kommuni- 

35 kationsabfolge zwischen den beteiligten Instanzen umfaBt, 

dadurch gekennzeichnet, 

daB ein Benutzer innerhalb der Kommunikationsdaten graphisch, d.h. nicht auf 
der Programmierebene der Beschreibungsdateien, festlegen kann: 
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erstens zumindest eine Nachricht von einer ersten Instanz an eine zweite In- 
stanz, die zumindest eine Variable enthalt, und 

zweitens daB die zweite Instanz in Abhangigkeit des Inhalts der zumindest einen 
Variablen eine von mehreren Aktivitaten ausfuhrt. 

2. Verfahren nachAnspruch 1, 
dadurch gekennzeichnet, 

daB der Benutzer eine Switch-Case-Funktionalitat spezifizieren kann, die die 
zweite Instanz in Abhangigkeit des Inhalts der Variablen ausfuhrt. 

3. Verfahren nach Anspruch 1 Oder 2, 
dadurch gekennzeichnet, 

daB der Benutzer eine Loop-Funktionalitat spezifizieren kann, die die zweite In- 
stanz in Abhangigkeit des Inhalts der Variablen ausfuhrt. 

4. Verfahren nach Anspruch 3, 
dadurch gekennzeichnet, 

daB die Loop-Funktionalitat eine For-Next-, eine Do-While- und/oder eine While- 
Do-Funktionalitat umfaBt. 

5. Verfahren nach einem der vorhergehenden Anspruche, 
dadurch gekennzeichnet, 

daB der Benutzer eine Jump- bzw. GoTo-Funktionalitat und/oder eine If-Then- 
Funktionalitat spezifizieren kann, die die zweite Instanz in Abhangigkeit des In- 
halts der Variablen ausfuhrt. 

6. Verfahren nach einem der vorhergehenden Anspruche, 
dadurch gekennzeichnet, 

daB weiterhin in Schritt a) die an der Kommunikation beteiligten Instanzen gra- 
phisch ausgewahlt werden und/oder in Schritt b) die Protokollschicht graphisch 
ausgewahlt wird und/ Oder in Schritt c) die abstrakten Kommunika- 
tionsschnittstellen der Protokollschicht graphisch ausgewahlt werden, wobei den 
dabei auswahlbaren Parametern Beschreibungsdateien zugeordnet sind, die in 
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Schritt e) zur Erstellung eines zwischen den Instanzen ausfuhrbaren Kom- 
munikationsablaufs verwendet werden. 

7. Verfahren nach einem der vorhergehenden Anspriiche, 
dadurch gekennzeichnet, 

daB die abstrakten Kommunikationsschnittstellen SAPs (Sen/ice Access Points) 
umfassen. 

8. Verfahren nach einem der vorhergehenden Anspruche, 
dadurch gekennzeichnet, 

dafB die Kommunikationsdaten PDUs (Protocol Data Units) und/oder ASPs (Ab- 
stract Service Primitives) umfassen. 

9. Verfahren nach einem der vorhergehenden Anspruche, 
dadurch gekennzeichnet, 

daB Schritt d) folgende Teilschritte umfaBt: 

d1 ) graphisches Auswahlen eines Datenformats; 

d2) graphischer Aufbau einer Kommunikationsabfolge zwischen den beteilig- 
ten Instanzen. 

1 0. Verfahren nach Anspruch 9, 
dadurch gekennzeichnet, 

daB in Schritt d2) Source-Code eingebbar ist. 

1 1 . Verfahren nach einem der vorhergehenden Anspruche, 
dadurch gekennzeichnet, 

daB alien auswahlbaren Parametem Beschreibungsdateien zugeordnet v sind, die 
in Schritt e) zur Erstellung eines zwischen den Instanzen ausfuhrbaren Kom- 
munikationsablaufs verwendet werden. 

12. Protokolltester mit 

a) Mitteln zum Auswahlen der an einer Kommunikation beteiligten Instan- 
zen, wobei eine der instanzen der Protokolltester ist; 
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b) Mitteln zum Auswahlen einer Protokollschicht, auf deren Grundlage die 
Kommunikation zwischen den ausgewahlten Instanzen ablaufen soil; 

c) Mitteln zum Auswahlen derjenigen abstrakten Kommunikationsschnitt- 
stellen der Protokollschicht, die an der Kommunikation beteiligt sind; 

5 d) Mitteln zum Auswahlen der Kommunikationsdaten; 

e) Mitteln zum automatischen Erstellen eines zwischen den Instanzen aus- 
fiihrbaren Kommunikationsablaufs durch den Protokolltester, auf der 
Grundlage der Auswahlen gemaB a) bis d), 
wobei die Auswahlmittel gemaB d) graphische Auswahlmittel sind und den durch 
10 sie auswahlbaren Parametern Beschreibungsdateien zugeordnet sind, die ge- 

maB e) von den Erstellungsmitteln zur Erstellung eines zwischen den Instanzen 
ausfuhrbaren Kommunikationsablaufs verwendbar sind, 
wobei die Mittel zum Auswahlen der Kommunikationsdaten den graphischen 
Aufbau einer Kommunikationsabfolge zwischen den beteiligten Instanzen er- 
15 moglichen, 

dadurch gekennzeichnet, 

daB die Mittel zum Auswahlen der Kommunikationsdaten dergestalt sind, daB 
ein Benutzer innerhalb der Kommunikationsdaten graphisch, d.h. nicht auf der 
Programmierebene der Beschreibungsdateien, festlegen kann: 
20 erstens zumindest eine Nachricht von einer ersten Instanz an eine zweite In- 

stanz, die zumindest eine Variable enthalt, und 

zweitens daB die zweite Instanz in Abhangigkeit des Inhalts der zumindest einen 
Variablen eine von mehreren Aktivitaten ausfuhrt. 

25 
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1 TC 


| — .UT ■ . _| 




y RX: OiaLTon« 




TX: ' 

Conr»ect_Comp1ete_ 
Request v 





altConnectcdl | 



H 



Do While Connected <> 0 



Switch 
TC 



Phone 
IUT 



RX: Dial Tone 



TX 

Connect_Cornp!ete^ 
Request 



altConnected 



RX: 

Connect_Complete 



•■•Connected = 





9 



Switch . 
. tc 



Phone 

i i i 



TX: Request 



RX: 1-1000 



J switch: Send555 



i MsgNumber • 



W MsgNumber.=? 565 



TX:X 



I else 




*-JD6 Nothing 



for 



Connect 



TC 1 



1UT,1: 
IUT 



For j = 1 to 12| , 



Do While Connections <> 0 



.•Connections 
" ■Connections ► 1 ; 



While j 0 Do] 



Timeout (10000 ms) 



a It Time out | • . 



• Connections 
^Connections 



RXz Confirm 



ConfirmAcknowdedge 



j-1 



L^**-J Create Connection 



j Await Confirmation 
;loi call 



"^--^j Create 12 " 
"connections 



400 



^Establish all 
^Connections 



RX: 

ReleaseConnection 




•Waitfot all 

■j Connections to be 

t released "■ 
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Verfahren zum Erstellen eines Ablaufs einer zwischen mindestens 
zwei Instanzen ablaufenden Kommunikation und Protokolltester 



ZUSAMMENFASSUNG : 

Verfahren zum Erstellen eines Ablaufs einer zwischen mindestens zwei Instanzen ab- 
laufenden Kommunikation, wobei eine Instanz ein Protokolltester ist, gekennzeichnet 
durch folgende am Protokolltester ausfuhrbare Schritte: a) Auswahlen der an der Kom- 
munikation beteiligten Instanzen; b) Auswahlen einer Protokollschicht, auf deren 
Grundlage die Kommunikation zwischen den ausgewahlten Instanzen ablaufen soil; c) 
Auswahlen derjenigen abstrakten Kommunikationsschnittstellen der Protokollschicht, 
die an der Kommunikation beteiligt sind; d) Auswahlen der Kommunikationsdaten; e) 
Erstellen eines zwischen den mindestens zwei Instanzen ausfiihrbaren Kommunikati- 
onsablaufs durch den Protokolltester auf der Grundlage der Auswahlen in den Schritten 
a) bis d), wobei die Auswahl von Schritt d) graphisch erfolgt und den dabei auswahl- 
baren Parametern Beschreibungsdateien zugeordnet sind, die in Schritt e) zur Erstel- 
lung eines zwischen den Instanzen ausfiihrbaren Kommunikationsablaufs verwendet 
werden, wobei Schritt d) den graphischen Aufbau einer Kommunikationsabfolge zwi- 
schen den beteiligten Instanzen umfaRt, wobei ein Benutzer innerhalb der Kommunika- 
tionsdaten graphisch, d.h. nicht auf der Programmierebene der Beschreibungsdateien, 
festlegen kann: erstens zumindest eine Nachricht von einer ersten Instanz an eine 
zweite Instanz, die zumindest eine Variable enthalt, und zweitens daB die zweite In- 
stanz in Abhangigkeit des Inhalts der zumindest einen Variablen eine von mehreren 
Aktivitaten ausfuhrt. Sie betrifft iiberdies einen Protokolltester zur Durchfuhrung dieses 
Verfahrens. 

(Figur 5) 
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( ***** Tektronix MSC-Linker <V2 . 3 . 0> builds scenario ■ SwitchDemo ■ **-*- 
5 forth -*-** ) 

: $MSC$_VersionDate c" Oct 29 2002" ; 
CREATE NO_DEFAULT_TM_ INSTANCES 

( »»»»» Include initialization ««««« ) 
10 include pc : boot : / share / pfe /msc_Jieader . 4th 

( >»»»>» Allocation ««««« )' 
( create instance variables and constants... ) 
1 CONSTANT MSC_NUM_OF__INSTANCES 
15 CREATE $MSC$_InstanceVars MSC_NUM_OF_INSTANCES $MSC$_ElemSize_InstanceVar * 
$MSC$_Allot&Erase 

CREATE $MSC$_NextStateAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase \ 
allocate memory for nextstate variables 

CREATE $MSC$_DefaultFlagAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase \ 
20 allocate memory for default state flags 

CREATE $MSC$J>efaultReturnStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for default state flags 

CREATE $MSC$_DefaultStateAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase 
\ allocate memory for default states 
25 ( create timer variables and constants... ) 
{ TMO ) 

{ create environment function key variables and constants... ) 
12 CONSTANT $MSC$_FKEY# 

CREATE $MSC$_FKeyAddr MSC_NUM„OF_ IN STANCES $MSC$_FKEY# * 
30 $MSC$_ElemSize_FKeyVar * $MSC$_Allot&Erase 
( create pool variables and constants... ) 
1 CONSTANT MSC_NUM_OF_POOLS 

CREATE $MSC$_PoolVars MSC_NUM_OF_POOLS CELLS $MSC$_Allot&Erase 
( create message variables and constants... ) 
35 2 CONSTANT MSC_NUM___OF_MES SAGES 

CREATE $MSC$_MsgVars MSC_NUM_OFJMESSAGES $MSC$_ElemSize_MsgVar * 
$MSC$_Allot&Erase 

1 CONSTANT MSC_NUM_OF_MSGDECODEVARS { one per TM ) 
CREATE $MSC$_MsgDecodeVars MSCJNUM_OF_MSGDECODEVARS 

40 $MSC$_ElemSize_JtfsgDecodeVar * $MSC$_Allot&Erase 

2 CONSTANT MSC_NUM_OF_FOLDERS 

CREATE $MSC$_MsgFolderVars MSC_NUM_OF_FOLDERS $MSC$_ElemSize_FolderVar * 
$MSC$_Allot&Erase 

CREATE $MSC$_EventStructureVars MSC_NUM__OF_POOLS MSC_NU*L-OF_INSTANCES * 
45 $MSC$_ElemSize_EventStructureVar * $MSC$_Allot&Erase 

CREATE $MSC$_MsgSizeVars $MSC$_ElemSize_MsgSizeVar $MSC$_Allot&Erase 
variable $MSC$_MsgMatched? 

( create temporary variables and constants. . . ) 

variable $MSC$_TempFolder Handle 
50 variable $MSC$_PDecoutVar 

CREATE $MSC$_CurHMSCNameStringVar 255 ALLOT 

CREATE $MSC$_TempStringVarAddrO 255 ALLOT 

CREATE $MSC$_TempStringVarAddrl 255 ALLOT 

CREATE $MSC$_TempStringVarAddr2 255 ALLOT 
55 ( create startstate variables... ) 

variable $MSC$_Reg- State 

( »»»»» Test Managers ««««« ) 
12 TM_DEF_STATES ! 
60 0 TM_DEF_TIMERS ! 

0 $MSC$_TM_CREATE TMO 
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t ( »»»»» Constants «««<«< ) 

( create mapping of gateway name to pool index ) 

0 constant MSC-GW-Gateway_l \ Mapping Gatewayname 'Gateway^l 1 -> Poolindex 
5'0' 

( create mapping of gateway name to SAP Index ) 

0 constant MSC-GW2 SAP-Gat eway_l \ Mapping Gatewayname 'Gateway_l' -> SAPIn- 
dex '0' 

10 ( >»»>»» Variables «««<«< ) 
variable MSC-VAR-Gateway_l-cormid 

variable MSC-VAR-Gateway_l-Send_Sequence_Number__l 

( »»»»» Commands ««««« ) 
15 include pc : boot : /share/pf e/msc_lib. 4th 

( »»»»» MSC ESE Variables ««««« ) 

: MSC_Var: :MSC_String06 MSC_String6 ; 

: MSC_Var: :MSC_INT03 MSC_INT3 ; 
20 : MSC_Var: : MSC_String07 MSC_String7 ; 

: MSC_Var: :MSC_INT04 MSC^INT4 ; 

: MSC_Var: : MSC_String08 MSC_String8 ; 

: MSC_Var: :MSC_INT05 MSC_INT5 ; 

: MSC_Var: :MSC_String09 MSC_String9 ; 
25 : MSC_Var : :MSC_INT06 MSC_INT6 ; 

: MSC_Var: :MSC_INT07 MSC_INT7 ; 

: MSC_Var: :MSC_INT08 MSC_INT8 ; 

: MSC_Var: :MSC_INT09 MSC_INT9 ; 

: MSC_Var: :MSC_String01 MSC_Stringl ; 
30 : MSC_Var: :MSC_String02 MSC_String2 ; ' 

: MSC_Var: : switchVariable MSC_INT0 ; 

: MSC_Var: :MSC_String03 MSC_String3 ; 

: MSC_Var: :MSC_String04 MSC_String4 ; 

: MSC_Var: :MSC_INT01 MSC__INT1 ; 
35 : MSC_Var: :MSC_String05 MSC__String5 ; 

: MSC_Var: :MSC_INT02 MS C_ INT 2 ; 

MSC_NUM_OF_POOLS $MSC$_PoolPrepareInit 

40 ( constructor word . . . ) 

: $MSC$_Constructor ( — ) 
0 $MSC$_PoolPrepareStart 

■ pc:C:/K1297/MBS-Pools/gsm2pa.pdc n 0 $MSC$_PoolOpen 
" PROT<BSSM> send to EMrjL<ss7sccpl>" 0 1 $MSC$_FolderOpen \ pool 
45 'pc:C: /K1297/MBS-Pools/gsm2pa.pdc l 

- CONFIRM" 0 11 $MSC$_MsgVarInit \ pool 'pc : C : /K1297/MBS- 
Pools/gsm2pa.pdc • 

n PROT<BSSM> send to EMUL<ss7sccpl> n 0 0 $MSC$_FolderOpen \ pool 
•pc:C: /K1297/MBS-Pools/gsm2pa.pdC 
50 " DISCONNECT_SCCP" 0 0 0 $MSC$_MsgVarInit \ pool 'pc :C : /K1297/MBS- " 

Pools /gsm2pa . pdc ' 

0 $MSC$_PoolPrepareExec 

MSC-VAR-Gateway_l-connid " connid" n PROT<DTAP_MSG> send to E- 
MUL<ss7sccpl>" 0 $MSC$_AssignMSCVar 
55 MSC-VAR-Gateway_l-Send_Sequence_Number_l " Send_Sequence_Number_l " " 

PROT<DTAP_MSG> send to EMUL<ss7sccpl> " 0 $MSC$_AssignMSCVar 
$MSC $_Verdi c t Ini t 



60 ( destructor word . . . ) 

: $MSC$_Destructor ( — ) 
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$MSC $_C loseAllPools 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



( >>>>>>>>>> Initialization ««««« ) 

0 0 $MSC$_InitMsg \ Create k!2MBSevent structure for instance 'TestCompo- 
nent' and gateway ' Gateway_l ' 

TM0 ( »»»»» start of instance 'Test Component ' ««««« ) 
( Segments of Instance • TestComponent ' : 



Type 


| Segment Name 


| State 


Length 


INIT 


[ - no name - 


| 0000000000 


0000000001 


END 


j - no name - 


| 0000000001 


0000000001 


DOC 


j MainSwitch 


| 0000000002 


0000000008 


CONN 


| SwitchDemo/ Start 


| 0000000010 


0000000001 


CONN 


j SwitchDemo/MainSwitch 


j 0000000011 


0000000001 



+ ) 



\ init segment 

0 STATE_INIT{ 

" TM0 starts" " TestComponent: " 2 $MSC$_TraceControl 
$MSC$_TraceMsgArray 

MSC_NUM_OF_INSTANCES $MSC$_VerdictReset \ init verdict 

0 $MSC$_ResetGotoModifierFlag \ init. instance 'TestComponent 1 

0 $MSC$_DefaultFlagSet 

0 $MSC$_DefaultStateSet 

( switch command for startstate. . . ) 

$MSC$_Req- State @ CASE 

1 OF 10 NEW_STATE ENDOF 
ENDCASE 
} STATE_INIT 

\ end segment 

1 STATE_INIT{ 

$MSC$_VerdictEval 

■ instance 'TestComponent 1 stops" $MSC$_Print String 
- TM0 stops" " TestComponent: ■ 2 $MSC$_TraceControl 
$MSC$_TraceMsgArray 
> STATE_INIT 

1 STATE { 

{ this is the end state - loop forever ) 

} STATE 

\ document segment 'MainSwitch 1 

2 STATE__INIT { 

( start Switch ' DoWhatlMean' ) 
. $MSC$_ReturnStackAlmostFull? IF 

v. "Error: Infinite recursion occured in State 2° vcr 
EXIT THEN 
( MSC_INT0 = 1 IF ) 
MSC_INT0 @ 
1 

= IF 

3 0 $MSC$_NewState EXIT 
THEN 

( MSC_INT0 = 2 IF ) 
MSC_INT0 @ 
2 

= IF 
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4 0 $MSC$_NewState EXIT 
THEN 

( MSCL.INTO = 3 IF ) 
MSC^INTO @ 
3 

= IF 

5 0 $MSC$_NewState EXIT 
THEN 

( MSC_INTO = 4 IF ) 
MSC__INTO @ 
4 

= IF 

6 0 $MSC$_NewState EXIT 
THEN 

( MSCLINTO = 5 IF ) 
MSC_INTO @ 
5 

= IF 

8 0 $MSC$_NewState EXIT 
THEN 

( else ) 
TRUE IF 

9 0 $MSC$_NewState EXIT 
THEN 

( end Switch ' DoWhatlMean ' ) 
} STATE_INIT 

3 STATE_INIT{ 

n Verdict set to value 'pass' " MainSwitch/TestComponent 
$MSC $_Tr aceVer di c t $MSC $_Trac eMsgAr ray 
$MSC$_VerdictPass 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$MSC $_Re t urnDe f au 1 1 Char t 
THEN 
} STATE_INIT • 

4 STATE_INIT{ 

■ Verdict set to value 'inconclusive'." " MainS- 
witch/TestComponent: " 2 $MSC$_TraceVerdict $MSC $_Trac eMsgAr r ay 

$MSC$__VerdictInconc 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$MSC$_ReturnDefaultChart 
THEN 
} STATE_INIT 

5 STATE__INIT{ 

" Verdict set to value 'fail'." " MainSwitch/TestComponent 
$MSC$_TraceVerdict $MSC$_Trac eMsgAr ray 

$MSC$_VerdictFail - 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$ MSC $_Re tur nD e f au 1 1 Char t 
THEN 
} STATE_INIT 

6 STATE_INIT{ 

■ Send message 1 DISCONNECT ' ( ' PROT<BSSM> send to 
EMUL<ss7sccpl>/DISCONNECT_SCCP' ) to gateway *Gateway_l' ■ " MainS- 
witch/TestComponent: " 2 $MSC$_TraceSend $MSC$_TraceMsgArray 

■ DISCONNECT" 0 0 0 $MSC$_SendPrimitive 
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7 0 $MSC$_NewState 
} STATE_INIT 

7 STATE { 

" CONFIRM" 10 0 $MSC$_RecvPrimitive 
5 ACTION { 

" Received message ' CONFIRM' ( ' PROT<BSSM> send to 
EMUL<ss7sccpl>/CONFIRM' ) from gateway ' Gateway_l ' " ■ MainS- 
witch/TestComponent: n 2 $MSC$_TraceReceive $MSC$_TraceMsgArray 

0 0 1 $MSC$_FreeEventStructure \ free event structure of message 
10 1 CONFIRM ' ( , PROT<BSSM> send to EMUL<s s7sccpl> /CONFIRM* ) and gateway 'Gate- 
way^ ' 

1 $MSC$_ResetMsgFlag \ message ' CONFIRM ' ( • PROT<BSSM> send to E- 
MUL<ss7sccpl>/C0NFIRM' ) from gateway 'Gateway^' 

0 $MSC$_ResetGotoModif ierFlag 
15 $MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$MSC$_ReturnDefaultChart 
THEN 

20 } ACTION 

TRUE 
ACTION { 

0 0 1 $MSC$_FreeEventStructure \ free event structure of message 

1 CONFIRM* ('PROT<BSSM> send to EMUL<ss7sccpl> /CONFIRM' ) and gateway 'Gate- 
25 way_l ' 

$MSC$_CallDefaultChart 
} ACTION 
} STATE 

8 STATE { 

30 1 $MSC$_FKey? 

ACTION { 

" Received environment input FK1 ° " MainSwitch/TestComponent : " 2 
$MSC $_TraceEnvironment $MSC $_TraceMsgArray 

1 $MSC$_ResetFKeyFlag 

35 0 $MSC$_ResetGotoModif ierFlag 

$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNext State 0 $MSC$_NewState 
ELSE 

$MSC $_Re turnD e f au 1 tChar t 
40 THEN 
} ACTION 
TRUE 
ACTION { 

$MSC$_CallDefaultChart 
45 > ACTION 

} STATE 

9 STATE_INIT{ 

- Unknown Value " ■ MainSwitch/TestComponent: ■ 2 $MSC$_TraceUser 
$MSC $__TraceMsgArray 

50 ■ Verdict set to value 'fail'." MainSwitch/TestComponent: ■ 2 

$MSC$_TraceVerdict $MSC$_TraceMsgArray 
$MSC $_Ver di c t Fa i 1 

$MSC$_CurHMSCNameStringVar ■ TestComponent : " 2 
$MSC$_TraceControl $MSC$_TraceMsgArray 
55 10 $MSC$_SetNextState 

1 0 $MSC$_NewState 
EXIT 

$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 

60 ELSE 

$MSC $_Re tumDe f au 1 1 Char t 
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THEN 
}.STATE_INIT 

\ connector segment ' SwitchDemo/Start 1 

10 STATE_INIT{ 

n Execution of HMSC 'SwitchDemo' started" n TestComponent : " 2 
$MSC$_TraceControl $MSC$_TraceMsgArray 

" SwitchDemo' finished" $MSC$_CurHMSCNameStringVar $MSC$_! String 

" Execution of HMSC ■ n $MSC$_CurHMSCNameStringVar 
$MSC$_TempStringVarAddrO $MSC$_StrCat 

11 0 $MSC$_SetNextState 

2 0 $MSC$__NewState 
} STATE_INIT 

\ connector segment 1 SwitchDemo /MainSwitch 1 

11 STATE_INIT{ 

n Execution of HMSC 'SwitchDemo 1 finished" ■ TestComponent: n 2 
$MSC$_TraceControl $MSC$_TraceMsgArray 
1 0 $MSC$_SetNextState 
1 0 $MSC$_NewState. 
} STATE_INIT 

( »»>>»» end of instance 'TestComponent 1 ««««« ) 
$MSC $_Cons true tor 

MSC_MENU__CTRL_FCT {calls the menu control function ) 
" MSC scenario 'SwitchDemo' loaded" $MSC$_PrintString 
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( ***** Tektronix MSC-Linker <V2 . 3 . 0> builds scenario ' Loo_Demo' **-*- 
5 forth -*-** ) 

: $MSC$__VersionDate c n Oct 29 2002" ; 
CREATE NO_DEFAULTJTM_INSTANCES 

{ »»»»» Include initialization ««««« ) 
10 include pc : boot : /share/pf e/msc_header . 4th 

( »»>»>» Allocation ««««« ) 
( create instance variables and constants... ) 
1 CONSTANT MSC_NUM_OF_INSTANCES 
15 CREATE $MSC$_InstanceVars MSC_NUM_OF_INSTANCES $MSC$_ElemSize_InstanceVar * 
$MSC $_Al lot &Erase 

CREATE $MSC$_NextStateAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase \ 
allocate memory for nextstate variables 

CREATE $MSC$_DefaultFlagAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase \ 
20 allocate memory for default state flags 

CREATE $MSC$_DefaultReturnStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for default state flags 

CREATE $MSC$_DefaultStateAddr MSC_NUM_OF_INSTANCES CELLS $MSC$_Allot&Erase 
\ allocate memory for default states 
25 ( create timer variables and constants... ) 
( TMO ) 

0 10000 $MSC$_Timer_CREATE MSC_Timer: : Timeout 

( create environment function key variables and constants. . . ) 
i2 CONSTANT $MSC$_FKEY# 
30 CREATE $MSC$_FKeyAddr MSC_NUM_OF_INSTANCES $MSC$__FKEY# * 
$MSC$_ElemSize_FKeyVar * $MSC$_Allot&Erase 
( create pool variables and constants ... ) 

1 CONSTANT MSC_NUM_OF_POOLS 

CREATE $MSC$_PoolVars MSC_NUM_OF_POOLS CELLS $MSC$_Allot&Erase 
35 ( create message variables and constants... ) 

2 CONSTANT MSC_NUM_OF_MESSAGES 

CREATE $MSC$_MsgVars MSC_NUM_OF_MES SAGES $MSC$_ElemSize_MsgVar * 
$MSC$_Allot&Erase 

1 CONSTANT MSC_NuX_OF_MSGDECODEVARS ( one per TM ) 
40 CREATE $MSC$_MsgDecodeVars MSC_NUM_OF_MSGDECODEVARS 

$MSC$_ElemSize_MsgDecodeVar * $MSC$_Allot&Erase 

2 CONSTANT MSC_NUM_OF_FOLDERS 

CREATE $MSC$_MsgFolderVars MSC_NUM_OF_FOLDERS $MSC$_ElemSize_FolderVar * 
$MSC$_Allot&Erase 

45 CREATE $MSC$_EventStructureVars MSC_NUM_OF_POOLS MSC_NUM_OF_INSTANCES * 
$MSC$_ElemSize_EventStructureVar * $MSC$_Allot&Erase 

CREATE $MSC$_MsgSizeVars $MSC$_ElemSize_MsgSizeVar $MSC$_Allot&Erase 
variable $MSC$_MsgMatched? 

( create temporary variables and constants... ) 
50 variable $MSC$_Temp Folder Handle 
variable $MSC$_PDecoutVar 
2 CONSTANT MSC_NUM„OF_TMPVARS 

CREATE $MSC$_TmpVars MSC_NUM_OF_TMPVARS CELLS $MSC$_Allot&Erase 
CREATE $MSC$_.CurHMSCNameStringVar 255 ALLOT 
55 CREATE $MSC$_TempStringVarAddrO 255 ALLOT 
CREATE $MSC$_TempStringVarAddrl 255 ALLOT 
CREATE $MSC$_TempStringVarAddr2 255 ALLOT 
( create startstate variables. . . ) 
variable $MSC$_Req- State 

60 

( »»>»»> Test Managers ««««<< ) 
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17 TM_DEF_STATES ! 
■ t 1 TM_DEF_TIMERS ! 

0 $MSC $__TM_CREATE TMO 

5 ( »»>>>»> Constants «<«««< ) 

( create mapping of gateway name to pool index ) 

0 constant MSC-GW-Gateway_l \ Mapping Gatewayname 'Gateway^l 1 -> Poolindex 
• 0* 

( create mapping of gateway name to SAP Index ) 
10 0 constant MSOGW2 SAP-Gat eway_l \ Mapping Gatewayname 'Gateway_l' -> SAPIn- 
dex '0' 

( »»>»»> Variables ««<««< ) 
var i ab 1 e MSC - VAR - Gat eway__l - S erv i c e_Key_l 

15 

( »»>»»> Commands «<«««< ) 
include pc :boot : /share/pf e/msc_lib . 4th 

( »»>»»> MSC ESE Variables <<<<<<<<<< ) 

20 : MSC_Var : :MSC_String06 MSC_String6 ; 

: MSC_Var : :MSC_INT03 MSC_INT3 ; 

: MSC_Var : :MSC_String07 MSC_String7 ; 

: MSC_Var : :MSC_INT04 MSC_INT4 ; 

: MSC_Var: :MSC__String08 MSC_String8 ; 

25 : MSC_Var: :MSC_INT05 MSC_INT5 ; 

: MSC_Var : :MSC_String09 MSC_String9 ; 

: MSC_Var: :MSC_INT06 MSC_INT6 ; 

: MSC_Var : :MSC_INT07 MSC_INT7 ; 

: MSC_Var : : j MSC_INT0 ; 

30 : MSC_Var : :MSC_INT08 MSC_INT8 ; 

: MSC_Var: :MSC_INT09 MSC_INT9 ; 

: MSC_Var: : Connections MSC_INT1 ; 

: MSC_Var : :MSC_String01 MSC_Stringl ; 

: MSC_Var: :MSC_String02 MSC_String2 ; 

35 ■ : MSC_Var : :MSC_String03 MSC_String3 ; 

: MSC_Var : :MSC_:String04 MSC_String4 ; 

: MSC_Var : :MSC_String05 MSC_String5 ; 

: MSC_Var: :MSC_INT02 MSC_INT2 ; 

40 MSC_NUM_OF_POOLS $MSC$_PoolPrepareInit 

( constructor word ... ) 
: $MSC$_Constructor ( ) 

0 $MSC$_PoolPrepareStart 
45 ■ pc:C:/K1297/MBS-Pools/camella.pdc n 0 $MSC$_PoolOpen 

" PROT<CAP> send to EMUL<ss7sccpl> B 0 1 $MSC$_FolderOpen \ pool 
•pc:C: /K1297/MBS-Pools/camella.pdc ' 

■ SCCP_END_Connect" 0 11 $MSC$_MsgVarInit \ pool 'pc:C: /K1297/MBS- 
Pools/camella.pdc ' 

50 " PROT<CAP> send to EMUIi<ss7sccpl> n 0 0 $MSC$_FolderOpen \ pool 

'pc:C: /K12 97/MBS-Pools/camella.pdc' 

" SCCP_START n 0 0 0 $MSC$_MsgVarInit \ pool 1 pc :C : /K1297/MBS- 
Pools/camella.pdc 1 

0 $MSC$_PoolPrepareExec 
55 MSC-VAR-Gateway_l-Service_Key_l a Service_Key_l" " PR0T<CAP> send to 

EMUL<ss7sccpl>" 0 $MSC$_AssignMSCVar 
$MSC$_VerdictInit 



60 ( destructor word ... ) 

: $MSC$_JDestructor ( — ) 
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$MSC$_CloseAllPools 



( »»»»» Initialization ««««« ) 
5 0 0 $MSC$_InitMsg \ Create kl2MBSevent structure for instance ' TC_1 ' and 
gateway • Gateway_l 1 

TMO ( »»»>>» start of instance 'TC^l* ««««« ) 
10 ( Segments of Instance 1 TC_1 ' : 



15 



Type 


Segment Name 


| State 


1 Length 


INIT 


- no name - 


| 0000000000 


0000000001 


END 


- no name - 


| 0000000001 


0000000001 


DOC 


Connect 


j 0000000002 


0000000013 


CONN 


Loo_Demo/ Start 


j 0000000015 


0000000001 


CONN 


Loo_Demo /Connect 


j 0000000016 


0000000001 



+ ) 



\ init segment . 

0 STATE_INIT{ 

" TMO starts" " TC_1 : " 2 $MSC$__TraceControl $MSC$_TraceMsgArray 
MSC_NUM_OF_INSTANCES $MSC$_VerdictReset \ init verdict 
25 0 $MSC$_ResetGotoModif ierFlag \ init. instance 'TC^l' 



0 $MSC$_DefaultFlagSet 
0 $MSC$_DefaultStateSet 

MSC_Timer :: Timeout $MSC$_Timer_Init \ init. timer 'Timeout 1 
( switch command for starts tate. . . ) 
30 $MSC$_Req- State @ CASE 

1 OF 15 NEW_STATE ENDOF 
ENDCASE 
> STATE_INIT 

35 \ end segment 

1 STATE_INIT{ 

$MSC$_VerdictEval 

n instance 'TC_1* stops" $MSC$_PrintString 

B TMO stops" " TC_1: " 2 $MSC$_TraceControl $MSC$_TraceMsgArray 
40 } STATE_INIT 

1 STATE { 

( this is the end state - loop forever ) 

} STATE 

45 \ document segment 'Connect 1 

2 STATE_INIT{ 

12 MSC_INT0 ! 

12 0 $MSC$_DefaultFlagGet + $MSC$_SetTmpVar 
3 0 $MSC$__NewState 
50 " } stateLinit 

3 STATELINIT { 

" Desktop Calculator 'Connections = Connections + 1* start " " 
Connect /TC_1.: " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator 'Connections = Connections +1* ) 
55 ( Connections = Connections + 1 ) 

MSC_INT1 @ 
1 

$MSC$_+ 
MSC_INT1 I 

60 ( end Desktop Calculator 'Connections = Connections + !• ) 
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■ Desktop Calculator 'Connections = Connections + 1' end " n Con- 
nect/TC_l: n 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

■ Send message 'MOC ( , PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_START' ) to gateway 'Gateway_l' " n Connect/TC_l : " 2 

5 $MSC$_TraceSend $MSC$_TraceMsgArray 

n MOC" 0 0 0 $MSC$_SendPrimitive 
4 0 $MSC$_NewState 
} STATE_INIT 

4 STATE_INIT{ 

10 $MSC$_ReturnStackAlmostFull? IF 

M WARNING: Infinite recursion occured in repetition in chart 'Con- 
nect' - continue with next state, ".• 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
THEN 

15 MSC_INT0 @ 1 - MSC_INT0 ! 

MSC_INT0 @ 0 <> IF 

3 0 $MSC$_NewState EXIT 
ELSE 

5 0 $MSC$_NewState EXIT 
20 THEN 
} STATE_INIT 

5 STATE_INIT{ 

6 0 $MSC$_NewState 
} STATE_INIT 

25 6 STATE_INIT { 

■ Desktop Calculator 'Connections = Connections - 1' start ■ " 
Connect/TC_l: " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

{ start Desktop Calculator 'Connections « Connections - 1' ) 
( Connections = Connections - 1 ) 
30 MSC_INT1 @ 

1 

$MSC$_- 
MSC__INT1 I 

( end Desktop Calculator 'Connections = Connections - 1' ) 
35 » Desktop Calculator 'Connections = Connections - 1' end " ■ Con- 

nect /TC_1: " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

7 0 $MSC$_NewState 
} STATE_INIT 

7 STATE { 

40 " Confirm" 10 0 $MSC$_RecvPrimitive 

ACTION { 

■ Received message 'Confirm' ( ' PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_END_Connect 1 ) from gateway 'Gateway_l' n " Con- 
nect/TCI: " 2 $MSC$_TraceReceive $MSC$_TraceMsgArray 

45 0 0 1 $MSC$_FreeEvent Structure \ free event structure of message 

'Confirm' ('PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) and gateway 
• Gateway^ 1 ' 

1 $MSC$_ResetMsgFlag \ message 'Confirm' ( ' PR0T<CAP> send to E- 
MUL<ss7sccpl>/SCCP_END_Connect ' ) from gateway 'Gateway_l' 

50 " 0 $MSC$_ResetGotoModIf ieirFlag 

■ Send message ' Con firmAcknowl edge ' ( ' PR0T<CAP> send to E- 
MUL<ss7sccpl>/SCCP_START' ) to gateway 'Gateway_l' " n Connect/TC_l : " 2 
$MSC$_TraceSend $MSC$_TraceMsgArray 

" Conf irmAcknowledge" 0 0 0 $MSC$_SendPrimitive 
55 8 0 $MSC$_NewState 

} ACTION 
TRUE 
ACTION { 

0 0 1 $MSC$_FreeEvent Structure \ free event structure of message 
60 'Confirm' {'PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) and gateway 
• Gateway_l ' 
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$MSC$_CallDefaultChart 
} ACTION 
} STATE 

8 STATE_INIT{ 

5 $MSC$_ReturnStackAlmostFull? IF 

n WARNING: Infinite recursion occured in repetition in chart 'Con- 
nect* - continue with next state..." 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
THEN 

10 MSC_INT1 @ 0 <> IF 

6 0 $MSC$_NewState EXIT 
ELSE 

9 0 $MSC$_NewState EXIT 
THEN 

15 )STATE_INIT 

9 STATE_INIT{ 

14 0 $MSC$_NewState 
} STATE_INIT 

10 STATE_INIT{ 

20 n Timer 'Timeout 1 set with value 10000" " Connect /TC_1 : n 2 

$MSC$_TraceTimer $MSC$_TraceMsgArray 

10000 MSC_Timer :: Timeout $MSC$_Timer_RunTime ! 

MSC_Timer: : Timeout $MSC$_Timer_Start \ timer 'Timeout' 

" Desktop Calculator 1 j = j - 1' start " n Connect/TC_l : B 2 
25 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator ' j = j - 1' ) 

( j = j - 1 ) 
MSC_INT0 @ 
1 

30 $msc$_- 

MSC_INT0 ! 
( end Desktop Calculator • j = j - 1' ) 

" Desktop Calculator *j = j - 1' end • " Connect/TC_l : B 2 
$MSC$_TraceDCalculator $MSC$_TraceMsgArray 
35 11 0 $MSC$_NewState 

} STATE_INIT ' 

11 STATE_INIT{ 

1 $MSC$_ResetMsgFlag \ message ' ReleaseConnection * ( • PROT<CAP> 
send to EMUL<ss7sccpl>/SCCP__END_Connect ' ) from gateway *Gateway_l' 

40 }STATE_INIT 
11 STATE { 

" ReleaseConnection" 10 0 $MSC$_RecvPrimitive 
ACTION { 

0 0 1 $MSC$_FreeEvent Structure \ free event structure of message 
45 'ReleaseConnection' ( ' PR0T<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect • ) 
and gateway 'Gateway_l' 

0 $MSC$_SetGotoModif ierFlag 

12 0 $MSC$_NewState 
} ACTION 

50 " TC_1" " Timeout" MSC__Timer: : Timeout $MSC$_Timer_Timeout? 

ACTION { 

0 0 1 $MSC$_FreeEventStructure \ free event structure of message 
•ReleaseConnection' ( , PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) 
and gateway 'Gateway.^!' 
55 0 $MSC$_SetGotoModif ierFlag 

13 0 $MSC$_NewState 
} ACTION 

TRUE 
ACTION { 
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0 0 1 $MSC$_FreeEventStructure \ free event structure of message 
•ReleaseConnection' ( ' PR0T<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) 
and gateway 'Gateway^. 1 

$MSC$_CallDefaultChart 
5 } ACTION 

} STATE 

12 STATE { 

■ ReleaseConnection" 10 0 $MSC$_RecvPrimitive 
ACTION { 

10 " Received message 'ReleaseConnection 1 ( , PR0T<CAP> send to 

EMUL<ss7sccpl>/SCCP_END_Connect ' ) from gateway 'Gateway^' B " Con- 
nect /TC_1: n 2 $MSC$_TraceReceive $MSC$__TraceMsgArray 

0 0 1 $MSC$_FreeEventStructure \ free event structure of message 
'ReleaseConnection' < ' PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect • ) 

15 and gateway 'Gateway_l' 

1 $MSC$_ResetMsgFlag \ message 'ReleaseConnection' ( ' PR0T<CAP> 
send to EMUL<ss7sccpl>/SCCP_END_Connect 1 ) from gateway • Gateway^' 

0 $MSC$_ResetGotoModif ierFlag 
14 0 $MSC$_NewState 
20 } ACTION 

TRUE 
ACTION{ 

0 0 1 $MSC$_FreeEventStructure \ free event structure of message 
'ReleaseConnection' ( ' PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) 

25 and gateway 'Gateway_l' 

$MSC$__CallDefaultChart 

} ACTION 
} STATE 

13 STATE { 

30 n TC_l n n Timeout" MSCJTimer: : Timeout $MSC$_Timer_Timeout? 

ACTION{ 

" Received timeout 'Timeout' n " Connect/TC_l : ■ 2 
$MSC $_Tr ac eTimer $MSC $_Tr ac eMs gAr r ay 

0 $MSC$_ResetGotoModif ierFlag 
35 ■ Desktop Calculator 'j = 0' start " n Connect/TC__l : " 2 

$MSC$_TraceDCaIculator $MSC$_TraceMsgArray 

{ start Desktop Calculator «j = 0' ) 
( j = 0 ) 
0 

40 MSC_INT0 ! 

( end Desktop Calculator ' j = 0 ' ) 

■ Desktop Calculator 'j = 0' end " " Connect/TC_l : D 2 
$MSC $_Trac eDCal cula tor $MSC $_Trac eMsgArray 
14 0 $MSC$_NewState 
45 } ACTION 

TRUE 
ACTION { 

$MSC$_CallDefaultChart 

} ACTION 
50 } STATE 

14 STATE_INIT{ 
$MSC$_ReturnStackAlmostFull? IF 

" WARNING: Infinite recursion occured in repetition in chart 'Con- 
nect' - continue with next state..." 
55 0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 

THEN 

MSC_INT0 @ 0 <> if 

10 0 $MSC$_NewState EXIT 
ELSE 

60 $MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
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ELSE 

S $MSC$_ReturnDefaultChart EXIT 

THEN 
THEN 

5 } STATE_INIT 

\ connector segment ' Loo_Demo/Start ' 

15 STATE_INIT{ 

■ Execution of HMSC , Loo__Demo l started" rt TC_1: B 2 
10 $MSC$_TraceControl $MSC$_TraceMsgArray 

n Loo.Demo' finished" $MSC$_CurHMSCNameStringVar $MSC$_! String 

■ Execution of HMSC ' n $MSC$_C.urHMSCNameStringVar 
$MSC$_TempStringVarAddrO $MSC$_StrCat 

16 0 $MSC$_SetNext State 
15 2 0 $MSC$_NewState 

} STATE_INIT 

\ connector segment ' Loo_Dexno/ Connect ' 

16 STATE_INIT{ 

20 " Execution of HMSC ' Loo_Demo' finished" " TC__1 : " 2 

$MSC$_TraceControl $MSC$_TraceMsgArray 
1 0 $MSC$_SetNextState 
1 0 $MSC$_NewState 
} STATE_INIT 

25 ( >»»»>» end of instance 'TC^l* ««««<< •) 
$MSC$_Constructor 

MSC_MENU_CTRL__FCT ( calls the menu control function ) 
■ MSC scenario 'Loo^Demo' loaded" $MSC$_PrintString 

30 
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